home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amos_turbo / demos / plane_problem.amos / plane_problem.amosSourceCode
Encoding:
AMOS Source Code  |  1980-08-18  |  759 b   |  32 lines
  1. 'little demo to demonstrate a problem (NOT A BUG) in this version of 
  2. 'the Plane Update command. 
  3. '
  4. 'The planes on each of the screens are updated, but only the LAST update 
  5. 'is copied into the copperlist.
  6. 'Watch out for the next version !
  7. '
  8. Screen Open 0,320,100,32,Lowres
  9. Curs Off 
  10. Flash Off 
  11. Screen Open 1,320,100,32,Lowres
  12. Curs Off 
  13. Flash Off 
  14. Screen Display 1,,150,,
  15. SCR_DRAW[0]
  16. SCR_DRAW[1]
  17. For I=1 To 100
  18.     Extension_12_0534 0,1,2,1
  19.     Extension_12_0534 1,2,0,1
  20.    Wait Vbl 
  21.     Extension_12_059A 0
  22.     Extension_12_059A 1
  23. Next 
  24.  Extension_12_0534 0,-1,0,0
  25.  Extension_12_0534 1,-1,0,0
  26. Procedure SCR_DRAW[_SCREEN]
  27.    Screen _SCREEN
  28.    Print "This is Screen :";_SCREEN
  29.    For I=1 To 50 Step 5
  30.        Extension_12_0480 160,50,I,Rnd(15)
  31.    Next 
  32. End Proc